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eTITLE SYSRTSLST = Rights List Manipulation Services 
‘Joent *yoacooge ~ *'9 . . 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


IG 

SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
S THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
oa nnereRReee NO TETLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORA iow NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


RRAAEEEE REET AAAEAAAAAAAAAAAAAAAAARAAAERAAAEAAEAEAAAAEAEEARAEAEAAERAEAAERE 


+ 
FACILITY: VAX/VMS Executive 
ABSTRACT: 


This module contains services to manipulate the system 
and process rights lists. 


ENVIRONMENT: 


VAX/VMS exec, process context 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 11-Mar-1983 11:39 
MODIFIED BY: 


v03-001 ACG0335 Andrew C. Goldstein, 10-May-1983 19:33 
Add support for extended rights List 


; Define needed system structures 


SARBDEF 3; access rights block 
SDYNDEF ; dynamic structure types 
SPCBDEF 3 process control bloc 


Page 
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2 PRVDEF 
SSDEF 
i Argument List offsets 
4 64° PIDADR = 4 
p a8 65 PRCNAM = : 
96 ID = 2 
0 1 4 NAME = 1 
0 1 38 68 MODE = 16 
00000014 00 69 PRVATR = 20 


"SSE 


p- 
P=] 


Bhs S:Seics Fee MeS Hacce oer Oe ky | Pewee, 


privilege bits 
System status codes 


address of PID 

address of process name desc 

address of identifier and attrib 
address of identifier name desc 
grant/revoke mode for kernel routine 
address for previous attributes 


—TOMWMMNIOWZ Bl KCK TO WMIOODZT Sl KOM TO WM IOVZ SS ACH TO MWMOIOWVZS SF KOCH TA MMIOO®W 
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~SBTTL EXESGRANTID = Grant Identifier to Process 
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EXESGRANTID = grant identifier to process 
EXESREVOKID = revoke identifier from process 


; FUNCTIONAL DESCRIPTION: 


This routine grants or revokes the specified identifier 
to or from the specified eon: Process name and right 
name are translated to PID and identifier as necessary. 
If a PID of -1 is given, the system rights list is 
operated on. 


CALLING SEQUENCE: 
EXESGRANTID (PIDADR, PRCNAM, ID, NAME, PRVATR) 
EXESREVOKID (PIDADR, PRCNAM, ID, NAME, PRVATR) 


INPUT PARAMETERS: 
PIDADR: address of PID of process 
PRCNAM: address of descriptor of process name 
D: address of identifier to grant 
NAME: address of descriptor of identifier name 


IMPLICIT INPUTS: 
NONE 
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OUTPUT PARAMETERS: 
PIDADR: address to store resulting PID 
IDADDR: address to store resulting identifier 
PRVATR: previous attributes of superseded or revoked identifier 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 

SS$_ : success; identifier not previously in List 
: success; identifier was previously in List 
: some argument is unreadable or unwritable 


LR 
To 
P iV: caller lacks privileges over target process, or 
a 
CH 
TS 


OOOCCCCooocoooooooo 


cks —— privilege 
ID: identifier name is not a valid name 
FULL: the specified rights list is full 


fier entered in or removed from specified rights List 


Bee Ge Se Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Sse Ge Ge Se Ge Ge Ge See Sse Ge Sets Se Sse SseSseGseSe tsetse tsetse 


-PSECT YEXEPAGED 
-ENABLE LSB 


ENTRY SFE SEP ANT ED, RS > 
MOVL sh6" 


FP OOO NAME WI OD ODNAMN EWN 9 ODNAULS WN OOONAULS WN OVONOULSWN— Oz 


3; set grant mode 


POPIMOINPIMONININ) 4 9 9 § QOD DOOOO 000000 000009090909 090909090909 SINGS 


a eB a D8 wet et sd ts tt ot tt 
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000¢ > -ENTRY EXESREVOKID, “M<R2,R3> 
53 D4 y 1 CLRL RS 3; set revoke mode 
6D OO00'CF 9 5 131 10$: MOVAB Ape! Meameelndie 3; set local condition handler 
Se | 6OC At ) 1 1 § MOVL gh $ get pointer to identifier 
9 1 14 4 BNEQ 0$ ; branch if ID specified 
. we 1 134 CLRQ -(SP) ; allocate ID buffer on stack 
= = OS 1 ! 5 MOVL SP,R2 3 and set pointer 
62 05 1B 1 ; 208: TSTL (R2) ; see if a binary ID is supplied 
| ime 1D 138 BNEQ 30$ :; if so, skip conversion 
50 0114 8 3 1f 139 MOVZWL #SS$_INSFARG,RO 
10 AC OD 4 140 TSTL NAME TAP) : make sure a name is supplied 
2D 1 , - BEQL 40$ 
029 136 SASCTOID_S ID=(R2),- ; translate name into identifier 
0029 14 ATTRIB=4(R2),- 
029 144 NAME =@NAME (AP) 
18 50 «6€9 00 : 13? BLBC RO,40$ : branch if failed 
0036 147 3; call kernel mode routine with 
14 AC D 0038 148 30S: PUSHL PRVATR(AP) ; previous attributes 
7E 52 D OQO3E 149 mMOVa 7 : identifier and mode 
7E 04 AC 7D 0041 150 MOVQ emia Tate ; PIDADR & PRCNAM 
0S oD ik 151 PUSHL # 3 
5E DD 47 13 PUSHL SP : arg List address 
QOOOOO2C'EF 9F 0049 15 PUSHAB GRANT_REVOKE : routine address 
QO000000'EF O08 FB Byer 154 CALLS #8,SYSSCMKRNL 
04 B28 155 40$: RET 
0057 3156 
0057 +=+157 DISABLE LSB 


| 
| 


=> 
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mo 
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GRANT_REVOKE = kernel mode rights List handling 
FUNCTIONAL DESCRIPTION: 

This routine does the kernel mode recossing to grant or 

revoke an identifier. It locates the pgectt ed process 

and searches and modifies the rights List. 


CALLING SEQUENCE: 
GRANT_REVOKE (PIDADR, PRCNAM, ID, MODE, PRVATR) 


| 
INPUT PARAMETERS: 
PIDA 


OOOQOOOOOCOoOoooO 


DR: address of PID of process 
PRCNAM: address of descriptor of process name 
: address of identifier to grant 
MODE: 0 to revoke identifier, 1 to grant 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
PIDADR: address to store resulting PID 
PRVATR: previous attributes of superseded identifier 


IMPLICIT OUTPUTS: 
NONE 
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SIDE EFFECTS: 
Identifier entered in specified rights list 
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BOON POINTS ONO 9908 WWW QQ NSS 


So 
[=] 
So 
Ss 


~PSECT AEXENONPAGED 
~ENABLE LSB 


To here if EXESNAMPID returns with an error. Check for the special 
case of a PID of -1, indicating that the system rights list is to 
be operated on. 


OOOO 00 500909 09 09 69 09 C9 09 C9 09 SI INI SINININI NINO OAOAAAAOAOOU 


WPWwn—o NAMES ONAN EWN SO OD NAME WN SO OONAUES WHO OONOULS WOO 


BG eo Ge Ge Ge Ge 


PIPPI IP IPIPINIPINININ III INI) ad i hk kk kk kk kk hd dh 


OOOOO8ES BF 50 01 0$: CMPL RO, #SS$_NONEXPR 3 check for non-existent process 
. Fe BNEQ 3 exit if anything else 
51 04 +3 D MOVL 4 aaaeanatat st 3 get address of PID 
1 1 BEQL 20$ ; branch if none specified 
? IFNORD #4,(R1),30$ ; ACCVIO if PID not readable 
51 61 D MCOML § (R1),R1 > check for - 
1 ! pure < $ 3; branch if_no 
50 2814 8F Be 1 1 MOVZWL #SS$ MOST SHAN.RO 3 assume no peu’ ege 
1 IFPRIV SYSNAM,50$,R6 : exit if SYSNAM privilege Lacking 
04 ! 20$: RET 
50 OC 00 ! 30$: nove #SS$_ACCVIO,RO 3; return access violation 


} 

t 
point to 2nd rights vector entry 
| 
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p a $7321 98 


08:86:43 
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C 
: 19 ; Main subroutine entry point. 
C 19 GRANT_REVOKE : 
O3FC C » WORD “M<R2,R3,R4,R5,R6,R7,R8B,RI> 
27 7 ° CLRQ 4 3; init pian. yogter. index and free pointer 
56 4 B § MOVL ; save PC 
FFCAS BSBW UPERE SNARPD ; translate process name to PID 
c7 50:=«C€E 8 : BLBC 3; branch on failure 
56 54 «OD 9 § 08: MOVL Be R6 ERY edgre 
54 OO0A4 (647 OD 50S: MOVL $Q_PRIV+ARBSL RIGHTSLEST (ROD ER 1,R get etgnts list descriptor 
Hi 1 4 3 BEQL $~ ; bra if’ aaat presen 
53 84 FD S8F 7 4 ASHL (R4)+,R3 ; get ney ants List length 
54 64 SO 49 p MOVL {Rass RG ; and rights list address 
51 OC AC 00 ace ¢ 60$: MOVL IDC(AP) ,R1 : get address of identifier 
5 IFNORD #8,(R15,30$ : check readability 
1 61 #£=27D 828 $¢ MOvVa (R1) 3 get identifier and attributes 
55° 14 AC DO 005 5 MOVL  PRVATR(AP),R5 : get pointer to prev. atr. longword 
1 05D $ BEQL 3; branch if none 
OSF IFNOWRT #4,(R5),30$ 3 check urienbiiicy 
65 D 065 8 CLRL (RS) : initialize to zero 
16 0 ©«=611 Bpeo 23 BRB 90$ 3 dive into loop 
Bode re : To here when an empty entry is encountered in a List 
58 05 0069 rk 70$: TSTL R8 3; check if we already have one 
15 is $63 44 BNEQ 100$ 3; branch if so 
58 54 OD 4 45 MOVL R4,RB ; otherwise save the pointer 
10 11 007 46 BR 106$ i chain to next List if any 
007 rt : Search the rights List for the desired identifier 
50 64 09 $07 50 bos: MOVL (R4*,RO 3; get next identifier from rights List 
a 13 007 51 BEQL 70$ : if zero, end of List 
s+ «= D1 Baer 26 CMPL RO,R1 3; see Li. matches desired ID 
1E 13 OO7A 25 BEQL §«=s«140$ : exit _ 008 
54 05 co BoE 54 ADDL ag. Re 3 nex "ist 
FO 5 #4 4 a 90S: SOBGEQ R3,80$ ; loop Sede “Tights list 
0 3 : Identifier not found in this List. 
57 p 3§ {oos: sth Rr? : check which Lis in use 
5 60 BNEQ fos : branch if not firs 
oe a § 61 ADDL gs R7 3: point to extended rights List 
Bi $¢ BRB 50$ : and search it 
07 10 AC EY $7 110$: ®BLBC MODE (AP) ,120$ 3 branch if atten ted revoke 
8 oe F 92 TSTL 3; see moty © ntry found 
8 } § BEQL 3; branch } 
$8 1 D 9 mova R1, (RB) ; spore ident ier in List 
01 B? 1888: MOVL #S$$_WASCLR,RO :; if revoke - benign success 
44 150$: RET 
~ 4 : Specified identifier found in rights List 
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4 9 DO9A 73 1408: TSTL R 3; see if f ores attributes to be returned 
4 C BEQL 150$ 3; branch 
65 96 AS OD 7 MOVL 4(R4), (RS) 3; store previous attribites 
05 10 At ; A: 150$: BLBC MODECAP),160$ : branch to do re voke 
64 D g MOVQ LB (R4) ; store ident ter in rights List 
Peon i. BRB 176$ | 
23 HH re , 160$:  ASHL a RRR ; compute remaining List size 
0 § ADDL #8,RS,R ; compute size plus one entry 
64 50 00 08 Ad ¢ : movcS oR BRA) #0,R0, (R4) ; collapse out found list entry 
BG DOBA 170$: OVL #55$_WASSET.R + set return status 


; No empty entries available - extend the rights List 


@ 
m 
DOONAN OMS 


3 ee R of 7. block present 
59 O0A4 (647 9 C MOVL Presa PRIV+ARBSL RIGHTSLEST (RE) ¥ RY ; point to rights List again 
0 1 C BEQL : branch none exists 
1 2 7D C 91 MOVQ a0v) 4! : get Stel block size and address 
3 + 2 cB 92 190$: mova ave size and addr for later 
51 naate SF g8 cf 9 ADOL hipss te! | blag Rl; "trereene size and add overhead 
F28" 30 00D 94 BSBW EXE 5 mate s'and allocate a new one 
BE E9 00D8 95 BLBC 3; branch on failure 
55 09 0D8 9 MOV R 3 save block address 
82. 51s} § OD 9 SUBL3. # ry 1, (R2)+ 3 set up actual List Length 
82 OB A OE 98 MOVAB 8 (R2),(R2)+ > and descriptor pointer 
82 51 2B E6 29 MOVW = R1, (RB) + : block Length 
82 0042 8F 8 E9 00 MOV #DYNSC_RIGHTSLIST,(R2)+ ; and block type 
7E 4 D ee 01 MOVQ 4,- 3; save @R 
62 65 00 64 3 C OOF1 8 MOVCS R3,(R4),#0,(R5),(R2) : restor the ——— and zero rest 
54 Hs D OOF? 30 MOVa SP) + RE : restore re 
11 9 OOFA 04 BLBC R7,200$ : branch if errended process list 
sresenee'es 9 D OOFD 5 mMOVa (R5) EXESGQ_RIGHTSLIST ; and store in system descriptor 
0 54 dO 0104 : MOVL 4 RO : get pointer to old block 
13. «1 107 BEQL og $ 3; branch if n 
= & ¢ 109 3 SUBL RO 3; point to start of block 
0B 11 10¢ 09 BRB 4 § 
OOA4 C647 23 dO 195 11 200$ MOVL Ra» PcBsa_ PRIV+ARBSL_RIGHTSLIST(R6)CR7) ; set up new pointer 
50 9 OD 11 \¢ MOVL R 
03 13 «0117 «31 BEQL B56 » branch if no old block 
FEES’ ; 119 14 210$: B8SBW XESDEANONPAGED ; deallocate the old | 
FF1ID 1 ie 1? 20$: BRW 0$ : locate free entry and try again 
11F M7 DISABLE LSB 
at 
11F $9 
11F 1 .END 


a 
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ARBSL_RIGHTSLI 
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$ york ing set Limit was 1350 pages 


S74 bytes pages) of virtual memory were used to buffer the intermediate code. 


ST = 2 
ARBSS_LOCALRIGHTS = 
DYN Bad ot pet = 4 
SACONONPAGED keer eee ¥ 
ENE SOE EANONP AG dD eeeneeee § 
EXESGQ_RIGHTSLIST eeeeeree = §6X 
EXESGRANTID 00000000 RG 
EXESNAMPID eeeneree =X 
EXESREVOKI 00000007 RG 
EXESSIGTORET aereeeee = § 6X 
GRANT _REVOK i Re 
= 
= 20090016 
AME = 1 
PCBsa PRIV = 4 
PIDADR = 4 
PRCNAM = 
PRVSV_SYSNAM = 8 
PRVATR = 1 
SS$_ACCVIO = OC 
SS$_INSFARG = 00000114 
SS$_NONEXPR = Fe 
SS$_NOSYSNAM z= 4 
SS$_WASCLR = 00001 
SS$_WASSET = 00000009 
SYSSASCTOID eenenene GX 8 
SYSSCMKRNL akeneeee = §6X 
ges enrecesean eae ees ea 
} ; Psect synopsis ! | 
PSECT name Allocation PSECT No. Attributes 
, 46 s 00000 00 ¢ 0.) 00 ¢ OO.) NOPIC USR CON ABS’ LCL — NOEXE NORD NOWRT NOVEC BYTE 
SABSS 000000: 4! ( 9-3 8 1.) NOPIC USR CON S§ LCL NOSHR EXE RD WRT NOVEC BYTE 
YEXEPAGED 44 ( § <i § ( ¢°} NOPIC USR CON REL LCL atte EXE RD WRT NOVEC BYTE 
AEXENONPAGED 0000011F <¢« 287.) O03 ¢ -) NOPIC USR CON REL LCL NOSHR EXE’ R&D WRT NOVEC BYTE 
$oer ees e oc ec ee eee m em eecaece 
; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 33 0: .07 :00.41 
zonnene processing \e9 3 -$! : 2 
Synbol table sort :00: 138 202.4 
of 7 :00:01.4 :02. 
Sebel table output :00:00. 2 
Psect synopsis output :00:00. ° 
Cross-reference output 00:00. ‘ 
Assembler run totals 51 . . 
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ere were 9 pages of synbol table 1 SPace al oce hold 793 non-local gné 26 local symbols. 
1 source Lines were read in Pass 1, produ a object records in Pass 2. 
pages of virtual memory were used to def nee macros. 


temo ee new aeeescemaaner em me eet 


! Macro Library statistics ! 


ewe er meme ee we mane ere meee } 


Macro Library name Macros defined 
_3255$DUA SYS .OBJJLIB.MLB; 1 
$533sbunse: tSySct JSTAR Fale: 2 ¢ 
Tovacs (all libraries) 1 


888 GETS were required to define 13 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSRTSLST/OBJ=OBJ$:SYSRTSLST MSRC$:SYSRTSLST/UPDATE=(ENHS:SYSRTSLST) +EXECMLS$/LIB 
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